ДЕРЖАВНИЙ ВИЩИЙ НАВЧАЛЬНИЙ ЗАКЛАД
“УЖГОРОДСЬКИЙ НАЦІОНАЛЬНИЙ УНІВЕРСИТЕТ”
Факультет інформаційних технологій
Лабораторна робота №15
Лабораторна робота №15.
Тема: Використання процедур і функцій модуля DOS.
Мета: Ознайомлення з процедурами і функціями модуля DOS.
Вивчити питання: Обробка переривань. Системний час і дата. Сервісні функції DOS. Обробка помилок модуля DOS. Стан зовнішнього носія. Представлення файлів у DOS. Читання змісту диску.
Завдання до роботи:
Скласти програму на мові Pascal з використанням не менше 5 процедур та функцій модуля DOS. Оформити звіт про виконання роботи та завантажити його в системі електронного навчання ДВНЗ «УжНУ» в установлений термін.
ХІД РОБОТИ
Скласти програму на мові Pascal з використанням не менше 5 процедур та функцій модуля DOS. Оформити звіт про виконання роботи та завантажити його в системі електронного навчання ДВНЗ «УжНУ» в установлений термін.
uses Crt, DOS;
var
Hour, Minutes, Second, Hund:word;
Year, Month, Day, Day_week:word;
begin
ClrScr;
GetTime(hour, minutes, second, hund);
GetDate(Year, Month, Day, Day_week);
WriteLn('Time=', hour, ':', minutes, ':', second);
WriteLn('Data=', Day, ' Day ', Month, ' Month ', Year, ' Year ');
WriteLn('DiskSize= ', DiskSize(0) div 1024 div 1024,'Mb');
WriteLn('DiskFree= ', DiskFree(0) div 1024 div 1024,'Mb');
WriteLn('ExitCode', DosExitCode);
readln;
end.
/
/
ВИСНОВОК
На даній лабораторній роботі я працювала у середовищі Turbo Pascal з модулем DOS, також ознайомилася з процедурами і функціями модуля DOS.
